﻿Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class frmRetailSalesmenPerformRpt

    Private Sub RTL_viewSalesmanPerformRPT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objRpt As New CrystalReport13
        objRpt.Load()

        objRpt.SetDataSource(dspo)
        objRpt.SetParameterValue("un", UserName)
        objRpt.SetParameterValue("rtlmsg", rtlmsg)
        CrystalReportViewer1.ReportSource = objRpt
    End Sub
End Class